home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-05
/
view9206.zip
/
MAILDIR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-08-22
|
794b
|
42 lines
program maildir;
{
21 Aug 91 Mark Bramwell.
Allows you to quickly move into the mail directory of an user.
You must be on the SYS: volume, else a runtime error will occur.
F:\> maildir mbramwel
F:\MAIL\D000001>
}
uses novell;
var username : string;
hexid : string;
retcode : integer;
realname : string;
begin
if paramcount = 0 then
begin
writeln('Please use -> MAILDIR <username>');
halt;
end;
username := paramstr(1);
gethexid(username, hexid, retcode);
if retcode = 0 then
begin
get_realname(username,realname,retcode);
if realname = '' then realname := username;
writeln('Mail Directory for ',realname);
chdir('\mail\'+hexid);
end else
writeln('Could not find username -> ',username);
end.